Ian & Stuart's Australian Mac 1993 September/September 93.iso/Archives/Applications/Graphics/Fractals/Fractal Lab Kit/Maps/Sierpinski

Text File | 1993-06-07 | 370 b | 11 lines | [TEXT/ALFA]

: sierpinski  ( generates the Sierpinski Triangle)
    0.0 0.0 1.0 0.0 0.0 1.0 initial
    0.0 0.0 0.5 0.0 0.0 0.5 image  solve make 0.333 1 set
    0.5 0.0 1.0 0.0 0.5 0.5 image  solve make 0.333 2 set
    0.25 0.5 0.75 0.5 0.25 1.0 image  solve make 0.333 3 set
    page ." The Sierpinski maps: " cr showmaps
    reset  settings
    key drop
    on outlines
    cdraw  ;